HPAVC/HPAVC CD-ROM.iso/pc/WANDR330.ZIP/SRC/SAVE.C

C/C++ Source or Header | 1997-01-01 | 4.9 KB | 201 lines

#include "wand_head.h"
#include <errno.h>
#include <curses.h>

extern char screen[NOOFROWS][ROWLEN+1];
extern int saved_game;
extern char screen_name[61];
extern void crypt_file();
extern int inform_me();
extern WINDOW *messagewin;

struct saved_game {
    short num;
    long  score;
    short bell;
    short maxmoves;
    short num_monsters;
};

struct save_vars zz;

extern struct mon_rec start_of_list, *tail_of_list;

void save_game(num, score, bell, maxmoves)
int  num, *bell, maxmoves;
long *score;
{
    char fname[128], buf[70], *fp;
    FILE *fo;
    struct saved_game s;
    extern char *getenv();
    struct mon_rec *mp;

    if ((char *)NULL == (fp = getenv("SAVENAME"))) {
    wclear(messagewin);
    wmove(messagewin,0,0);
    waddstr(messagewin,"Saving game filename? ");
    wrefresh(messagewin);
    wreadstring(messagewin,fname,20);
    fp = fname;
    }
    wclear(messagewin);
    wrefresh(messagewin);
    if ((FILE *)NULL == (fo = fopen(fp, W_BIN))) {
    perror(fp);
    return;
    }

    s.num = num;
    s.score = *score;
    s.bell = *bell;
    s.maxmoves = maxmoves;
    s.num_monsters = 0;

    mp = &start_of_list;        /* first entry is dummy    */
    while (mp != tail_of_list) {
    mp = mp->next;
    s.num_monsters++;    /* count them monsters    */
    }

    if ((1 != fwrite((char *)&s, sizeof(s), 1, fo)) ||
    (1 != fwrite((char *)screen, sizeof(screen), 1, fo)) ||
    (1 != fwrite((char *)&zz, sizeof(zz), 1, fo))) {
    sprintf(buf,"Write error on '%s'\n", fname);
    inform_me(buf,0);
    fclose(fo);
    return;
    }

    mp = &start_of_list;
    while (mp != tail_of_list) {
    /* save them monsters    */
    mp = mp->next;
    if (1 != fwrite((char *)mp, sizeof(struct mon_rec), 1, fo)) {
        sprintf(buf,"Write error on '%s'\n", fname);
        inform_me(buf);
        fclose(fo);
        return;
    }
    }
    fwrite(screen_name,sizeof(char),strlen(screen_name),fo);
    fclose(fo);
#ifndef NO_ENCRYPTION
    crypt_file(fp);    /* encrpyt the saved game */
#endif
#ifndef FRIENDLY
    clear();
    CBON;
    echo();
    refresh();
    endwin();
    printf("Game saved.\n\nWANDERER Copyright (C) 1988 S. Shipway\n\n");
    exit(0);
#else
   wmove(messagewin,0,0);
   waddstr(messagewin,"Game saved.                   ");
   wrefresh(messagewin);
   return;
#endif
}

void restore_game(num, score, bell, maxmoves)
int  *num, *bell, *maxmoves;
long *score;
{
    FILE *fi;
    struct saved_game s;
    struct mon_rec *mp, *tmp, tmp_monst;
    char fname[128], *fp;
    extern char *getenv();

    if ((char *)NULL == (fp = getenv("SAVENAME"))) {
    wclear(messagewin);
    wmove(messagewin,0,0);
    waddstr(messagewin,"Restoring game file name ? ");
    wrefresh(messagewin);
    echo(); CBOFF;
    fp = fname;
    gets(fp);
    CBON; noecho();
    }
    wclear(messagewin);
    wrefresh(messagewin);
#ifndef NO_ENCRYPTION
    crypt_file(fp);   /* decrypt it */
#endif
    if ((FILE *)NULL == (fi = fopen(fp, R_BIN))) {
    endwin();
    printf("Open error on '%s'\n", fp);
    printf("Cannot restore game --- sorry.\n");
    exit(1);
    }
    if ( (1 != fread((char *)&s, sizeof(s), 1, fi)) ||
    (1 != fread((char *)screen, sizeof(screen), 1, fi)) ||
    (1 != fread((char *)&zz, sizeof(zz), 1, fi)) ) {
    endwin();
    printf("Read error on '%s'n", fp);
    printf("Cannot restore game --- sorry.\n");
    fclose(fi);
    exit(1);
    }

    *num = s.num;
    *score = s.score;
    *bell = s.bell;
    *maxmoves = s.maxmoves;

    /* free any monsters already on chain, to start clean */
    mp = start_of_list.next;
    while ((mp != NULL) && (mp != &start_of_list)) {
    /* free them monsters    */
    tmp = mp;
    mp = mp->next;
    free(tmp);
    }

    /* re-initialize the monster list    */
    /* start_of_list = {0,0,0,0,0,NULL,NULL}; */
    start_of_list.x = 0;
    start_of_list.y = 0;
    start_of_list.mx = 0;
    start_of_list.my = 0;
    start_of_list.under = 0;
    start_of_list.next = (struct mon_rec *)NULL;
    start_of_list.prev = (struct mon_rec *)NULL;

    tail_of_list = &start_of_list;

    while (s.num_monsters--) {
    /* use make_monster to allocate the monster structures    */
    /* to get all the linking right without even trying    */
    if ((struct mon_rec *)NULL == (mp = make_monster(0, 0))) {
        endwin();
        printf("Monster alloc error on '%s'n", fp);
        printf("Try again - it might work.\nBut then,pigs might fly...\n");
        fclose(fi);
        exit(1);
    }
    if (1 != fread((char *)&tmp_monst, sizeof(struct mon_rec), 1, fi)) {
        endwin();
        printf("Monster read error on '%s'\n", fp);
        printf("Cannot restore game --- sorry.\n");
        fclose(fi);
        exit(1);
    }
    /* copy info without trashing links    */
    mp->x     = tmp_monst.x;
    mp->y     = tmp_monst.y;
    mp->mx    = tmp_monst.mx;
    mp->my    = tmp_monst.my;
    mp->under = tmp_monst.under;
    }
    if (fgets(screen_name,61,fi) == NULL)
    *screen_name = '#';
    fclose(fi);
#ifndef FRIENDLY
    unlink(fp);
#endif
    saved_game = 1;
}